home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / egcg2 / g48.bas < prev    next >
BASIC Source File  |  1991-10-18  |  1KB  |  43 lines
  1. 100 ' G48 T.WAKAMATSU
  2. 110 DIM A(11),B(11),C(11),D(6145),E(6145)
  3. 120 FOR I=1 TO 11
  4. 130   A(I)=0:B(I)=0:C(I)=1
  5. 140 NEXT I
  6. 150 N=1:J=0:CLS
  7. 160 V=190:W=335:X=190:Y=330
  8. 170 D(0)=V:E(0)=W:D(1)=X:E(1)=Y
  9. 180 LINE (V,W)-(X,Y),PSET,%1
  10. 190 P=1:GOSUB *LINE:P=-1:GOSUB *LINE
  11. 200 '-------------------------------
  12. 210 J=J+1:IF J=11 THEN 310
  13. 220 A(J)=A(J)+1
  14. 230 IF A(J)=2 THEN A(J)=0:GOTO 210
  15. 240 K=B(J)+C(J)
  16. 250 IF K=0 OR K=2 THEN C(J)=-C(J)
  17. 260 P=-C(J):B(J)=1:GOSUB *LINE
  18. 270 P=1:GOSUB *LINE:P=-1:GOSUB *LINE
  19. 280 J=1:GOTO 220
  20. 290 '-------------------------------
  21. 310 C1=3:C2=2
  22. 320 FOR J=1 TO N
  23. 330   IF J=N/2+1   THEN C1=4:C2=5
  24. 340   IF J=N/4*3+1 THEN C1=7:C2=6
  25. 350   LINE (  D(J-1),  E(J-1))-(  D(J),  E(J)),PSET,%C1
  26. 360   LINE (D(N-J+1),E(N-J+1))-(D(N-J),E(N-J)),PSET,%C2
  27. 370 NEXT J
  28. 390 FOR J=1 TO N/2
  29. 400   IF J=N/2+1   THEN C1=4:C2=5
  30. 410   IF J=N/4*3+1 THEN C1=7:C2=1
  31. 420   LINE (  D(J-1),  E(J-1))-(  D(J),  E(J)),PSET,0
  32. 430   LINE (D(N-J+1),E(N-J+1))-(D(N-J),E(N-J)),PSET,0
  33. 440 NEXT J
  34. 450 GOTO 560
  35. 460 '-------------------------------
  36. 470 *LINE
  37. 480    S=(Y-W)*P+X:T=(V-X)*P+Y
  38. 490    V=X:W=Y:X=S:Y=T:N=N+1:D(N)=X:E(N)=Y
  39. 500    LINE -(X,Y),PSET,%1
  40. 510  RETURN
  41. 520 '-------------------------------
  42. 560 CLS
  43.